Byte code arity check micro-optimisation

* src/bytecode.c (exec_byte_code): Slight simplification.

diff --git a/src/bytecode.c b/src/bytecode.c
index 0d0a28cd0bbdf808e31543e05a59e4e0f1a940c1..00db29b0140cbc9186b1f784530322e7c8d44652 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -391,8 +391,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
       bool rest = (at & 128) != 0;
       int mandatory = at & 127;
       ptrdiff_t nonrest = at >> 8;
-      ptrdiff_t maxargs = rest ? PTRDIFF_MAX : nonrest;
-      if (! (mandatory <= nargs && nargs <= maxargs))
+      if (! (mandatory <= nargs && (rest || nargs <= nonrest)))
        Fsignal (Qwrong_number_of_arguments,
                 list2 (Fcons (make_fixnum (mandatory), make_fixnum (nonrest)),
                        make_fixnum (nargs)));